home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / 3dalgo.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  16KB  |  71 lines
  1. 10 CLICK
  2. 100 IF
  3. 110 VARNAME
  4. 1110 RETURN
  5. 120 FOR
  6. 130 WAIT VBL
  7. 140 SCREEN COPY
  8. 150 SCREEN COPY
  9. 151 IF
  10. 155 GOSUB
  11. 157 IF
  12. 163 VARNAME
  13. 165 IF
  14. 167 VARNAME
  15. 170 NEXT
  16. 180 VARNAME
  17. 190 NEXT
  18. 20 MODE
  19. 200 UNTIL
  20. 210 VARNAME
  21. 220 VARNAME
  22. 230 VARNAME
  23. 240 VARNAME
  24. 250 VARNAME
  25. 260 VARNAME
  26. 27 ERASE
  27. 270 VARNAME
  28. 280 VARNAME
  29. 290 VARNAME
  30. 291 VARNAME
  31. 292 VARNAME
  32. 293 VARNAME
  33. 30 RESERVE
  34. 3000 REM draw
  35. 3010 VARNAME
  36. 3020 VARNAME
  37. 3030 VARNAME
  38. 3040 VARNAME
  39. 305 DATA
  40. 3050 DRAW
  41. 306 DATA
  42. 3060 RETURN
  43. 307 DATA
  44. 308 DATA
  45. 309 DATA
  46. 310 DATA
  47. 311 DATA
  48. 32 EXTENSION (Index #0) (Token 0x80)
  49. 33 INK
  50. 37 VARNAME
  51. 40 GOSUB
  52. 41 INK
  53. 42 GOSUB
  54. 43 VARNAME
  55. 5 REM Checked GFF א™
  56. 50 AUTO BACK
  57. 5000 REM swap
  58. 5010 RESERVE
  59. 5020 FOR
  60. 5030 READ
  61. 5040 NEXT
  62. 5050 DOKE
  63. 5060 AREG
  64. 5070 CALL
  65. 5080 END
  66. 60 REPEAT
  67. 6000 RETURN
  68. 70 FOR
  69. 80 VARNAME
  70. 90 IF
  71.